(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     70647,       1688]
NotebookOptionsPosition[     63729,       1578]
NotebookOutlinePosition[     64083,       1594]
CellTagsIndexPosition[     64040,       1591]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"extract", " ", "title", " ", "and"}], " ", "*)"}]], "Input",Express\
ionUUID->"4cbcbe82-b30c-45d6-a4b2-6b794528b51a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Map", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\"\<id\>\"", ",", "\"\<created\>\""}], "}"}], "/.", "#"}], 
    "&"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\"\<id\>\"", "\[Rule]", "\"\<0704.0006\>\""}], ",", 
       RowBox[{"\"\<created\>\"", "\[Rule]", "\"\<2007-03-31\>\""}]}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\"\<id\>\"", "\[Rule]", "\"\<0704.0002\>\""}], ",", 
       RowBox[{"\"\<created\>\"", "\[Rule]", "\"\<2007-02-31\>\""}]}], 
      "}"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.711801745254595*^9, 3.711801861586465*^9}, {
  3.711801894994542*^9, 3.711801899826129*^9}, {3.711802038272531*^9, 
  3.711802049094488*^9}},ExpressionUUID->"25e9243f-3bb2-4bd3-907d-\
f26167a135c2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"0704.0006\"\>", ",", "\<\"2007-03-31\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"0704.0002\"\>", ",", "\<\"2007-02-31\"\>"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7118018447279167`*^9, 3.711801861994454*^9}, 
   3.711801900191412*^9, 
   3.7118020522857*^9},ExpressionUUID->"d5f6d12a-5ae7-434f-8d36-b35561532eda"]
}, Open  ]],

Cell["\<\
to get the metaData list for these functions, use data=ReadList[aaron_file]; \
Don\[CloseCurlyQuote]t forget semicolon! E.g. Scrapings-2018-05-09.m. Then \
need to use data[[1]] on the resulting list.\
\>", "Item",ExpressionUUID->"368d16f8-1393-42ef-80d7-4492b4d40bd1"],

Cell[BoxData[
 RowBox[{"<<", 
  "\"\<~/Documents/workspace/Other/src/thmpAux/partialScrape.mx\>\""}]], \
"Input",
 CellChangeTimes->{{3.711802863858159*^9, 
  3.71180286876423*^9}},ExpressionUUID->"d42020d8-4848-48ce-b9c5-\
7c57ced5b035"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"updated", " ", "for", " ", "Oct", " ", "2017"}], ",", " ", 
    RowBox[{"2018", " ", "scraped", " ", 
     RowBox[{"file", ".", " ", "File"}], " ", "with", " ", "names", " ", "of",
      " ", "wrong", " ", "special", " ", "chars"}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"getDataString", "[", 
     RowBox[{"metaData_List", ",", 
      RowBox[{"sep_String:", "\"\<\\n\>\""}]}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "dataList", ",", "getNameString1", ",", "stream", ",", "arXivClass", 
        ",", "getDateString"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"getDateString", "=", 
        RowBox[{"Function", "[", 
         RowBox[{"dateList", ",", 
          RowBox[{"StringRiffle", "[", 
           RowBox[{
            RowBox[{"ToString", "/@", "dateList"}], ",", "\"\<-\>\""}], 
           "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"getNameString1", "=", 
        RowBox[{"Function", "[", 
         RowBox[{"names", ",", 
          RowBox[{"StringRiffle", "[", 
           RowBox[{
            RowBox[{"Map", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"\"\<Name\>\"", "/.", "#"}], "&"}], ",", "names"}], 
             "]"}], ",", "\"\<, \>\""}], "]"}]}], "]"}]}], ";", 
       RowBox[{"dataList", "=", "\[IndentingNewLine]", 
        RowBox[{"Reap", "[", 
         RowBox[{
          RowBox[{"Map", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"(", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"arXivClass", "=", 
                RowBox[{"\"\<ArXivClasses\>\"", "/.", "#"}]}], ";", 
               "\[IndentingNewLine]", 
               RowBox[{"If", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"{", "}"}], "=!=", "arXivClass"}], " ", "&&", " ", 
                    RowBox[{"Or", "@@", 
                    RowBox[{"StringContainsQ", "[", 
                    RowBox[{"arXivClass", ",", "\"\<math\>\""}], "]"}]}]}], 
                   ")"}], "\[IndentingNewLine]", "||", 
                  RowBox[{
                   RowBox[{"{", "}"}], "===", "arXivClass"}]}], 
                 "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
                 RowBox[{
                  RowBox[{"Sow", "[", 
                   RowBox[{
                    RowBox[{"Join", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"\"\<ArXivID\>\"", "/.", "#"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"getDateString", "[", 
                    RowBox[{"\"\<Date\>\"", "/.", "#"}], "]"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"\"\<Title\>\"", "/.", "#"}], "}"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"{", 
                    RowBox[{"getNameString1", "[", 
                    RowBox[{"\"\<Authors\>\"", "/.", "#"}], "]"}], "}"}]}], 
                    "]"}], ",", "\"\<paper\>\""}], "]"}], ";"}]}], 
                "\[IndentingNewLine]", "]"}]}], ")"}], "&"}], ",", 
            "\[IndentingNewLine]", "metaData"}], "]"}], "\[IndentingNewLine]",
           ",", "\"\<paper\>\""}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"dataList", "=", 
        RowBox[{
         RowBox[{"dataList", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"stream", "=", 
        RowBox[{
        "OpenWrite", "[", "\"\<~/test/metaDataString1.txt\>\"", "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Export", "[", 
        RowBox[{"stream", ",", 
         RowBox[{"StringRiffle", "[", 
          RowBox[{
           RowBox[{"Flatten", "[", "dataList", "]"}], ",", "sep"}], "]"}], 
         ",", " ", 
         RowBox[{"CharacterEncoding", "\[Rule]", "\"\<UTF8\>\""}]}], "]"}], 
       ";", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"WriteString", "[", 
          RowBox[{"stream", ",", 
           RowBox[{"StringRiffle", "[", 
            RowBox[{
             RowBox[{"Flatten", "[", "dataList", "]"}], ",", "\"\<\\n\>\""}], 
            "]"}]}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{"Close", "[", "stream", "]"}]}]}], "]"}]}], ";"}]}]], "Input",E\
xpressionUUID->"f9ccd2de-d7c4-4123-8806-f057ab46d2ff"],

Cell[BoxData[
 RowBox[{
  RowBox[{"getDataString", "[", 
   RowBox[{"list", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "]"}], ";", 
  RowBox[{"(*", 
   RowBox[{"Need", " ", 
    RowBox[{"the", " ", "[", 
     RowBox[{"[", "1", "]"}], "]"}], " ", "first", " ", "element", " ", 
    "after", " ", "ReadList", " ", 
    RowBox[{"input", "."}]}], " ", "*)"}]}]], "Input",ExpressionUUID->\
"a113c94e-7ea2-406d-ba16-988952cf1d71"],

Cell[BoxData["\"\<{Name -> Andr\[EAcute] Oliveira, FirstName -> \
Andr\[EAcute], LastName -> Oliveira,\>\""], "Input",ExpressionUUID->"88222289-\
54ca-4b82-bb6d-153d24c00d29"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StringPosition", "[", 
  RowBox[{"\"\<a.b\>\"", ",", "\"\<.\>\""}], "]"}]], "Input",ExpressionUUID->\
"f7ffecd6-b206-45f5-bc9b-cf8755d3a237"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"2", ",", "2"}], "}"}], "}"}]], "Output",ExpressionUUID->"4049cd5c-\
f7d4-45bb-b58c-abeb32a82b55"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"get", " ", "data", " ", "for", " ", "database"}], ",", " ", 
    RowBox[{
    "where", " ", "authors", " ", "names", " ", "are", " ", "separated", " ", 
     "into", " ", "first", " ", "and", " ", "last", " ", 
     RowBox[{"names", ".", " ", "First"}]}], ",", " ", 
    RowBox[{"last", ";"}], " ", ",", " ", 
    RowBox[{"and", " ", "names", " ", "are", " ", "separated", " ", "by", " ", 
     RowBox[{"semicolon", ".", " ", "Two"}], " ", "tables"}], ",", " ", 
    RowBox[{"one", " ", "for", " ", "metadata", " ", "table"}], ",", " ", 
    RowBox[{"another", " ", "for", " ", "author", " ", 
     RowBox[{"table", "."}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"getDataDBStringOutdated", "[", "metaData_List", "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "dataList", ",", "getNameString1", ",", "stream", ",", "arXivClass", 
        ",", "getDateString"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"getDateString", "=", 
        RowBox[{"Function", "[", 
         RowBox[{"dateList", ",", 
          RowBox[{"StringRiffle", "[", 
           RowBox[{
            RowBox[{"ToString", "/@", "dateList"}], ",", "\"\<-\>\""}], 
           "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"getNameString1", "=", 
        RowBox[{"Function", "[", 
         RowBox[{"names", ",", 
          RowBox[{"StringRiffle", "[", 
           RowBox[{
            RowBox[{"Map", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"\"\<Name\>\"", "/.", "#"}], "&"}], ",", "names"}], 
             "]"}], ",", "\"\<, \>\""}], "]"}]}], "]"}]}], ";", 
       RowBox[{"dataList", "=", "\[IndentingNewLine]", 
        RowBox[{"Reap", "[", 
         RowBox[{
          RowBox[{"Map", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"(", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"arXivClass", "=", 
                RowBox[{"\"\<ArXivClasses\>\"", "/.", "#"}]}], ";", 
               "\[IndentingNewLine]", 
               RowBox[{"If", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"{", "}"}], "=!=", "arXivClass"}], " ", "&&", " ", 
                    RowBox[{"Or", "@@", 
                    RowBox[{"StringContainsQ", "[", 
                    RowBox[{"arXivClass", ",", "\"\<math\>\""}], "]"}]}]}], 
                   ")"}], "\[IndentingNewLine]", "||", 
                  RowBox[{
                   RowBox[{"{", "}"}], "===", "arXivClass"}]}], 
                 "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
                 RowBox[{
                  RowBox[{"Sow", "[", 
                   RowBox[{
                    RowBox[{"StringJoin", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"\"\<'\>\"", "<>", 
                    RowBox[{"StringReplace", "[", 
                    RowBox[{
                    RowBox[{"\"\<ArXivID\>\"", "/.", "#"}], ",", 
                    RowBox[{"\"\</\>\"", "\[Rule]", "\"\<\>\""}]}], "]"}]}], 
                    ",", 
                    RowBox[{"\"\<','\>\"", "<>", 
                    RowBox[{"StringReplace", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"\"\<Title\>\"", "/.", "#"}], ")"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"\"\<\\\\\>\"", "\[Rule]", "\"\<\\\\\\\\\>\""}], 
                    ",", 
                    RowBox[{"\"\<,\>\"", "\[Rule]", "\"\<\\\\,\>\""}], ",", 
                    RowBox[{"\"\<'\>\"", "\[Rule]", "\"\<\\\\'\>\""}]}], 
                    "}"}]}], "]"}], "<>", "\"\<',\>\""}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"getDateString", "[", 
                    RowBox[{"\"\<Date\>\"", "/.", "#"}], "]"}], "}"}]}], 
                    "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
                    "\"\<paper\>\""}], "]"}], ";"}]}], "\[IndentingNewLine]", 
                "]"}]}], ")"}], "&"}], ",", "\[IndentingNewLine]", 
            "metaData"}], "]"}], "\[IndentingNewLine]", ",", 
          "\"\<paper\>\""}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"dataList", "=", 
        RowBox[{
         RowBox[{"dataList", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"stream", "=", 
        RowBox[{
        "OpenWrite", "[", "\"\<~/test/metaDataStringDB.txt\>\"", "]"}]}], ";", 
       RowBox[{"WriteString", "[", 
        RowBox[{"stream", ",", 
         RowBox[{"StringRiffle", "[", 
          RowBox[{
           RowBox[{"Flatten", "[", "dataList", "]"}], ",", "\"\<\\n\>\""}], 
          "]"}]}], "]"}], ";", 
       RowBox[{"Close", "[", "stream", "]"}]}]}], "]"}]}], ";"}]}]], "Input",E\
xpressionUUID->"ce105780-980d-4e15-addb-807e1a185108"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"getDataDBString", "[", 
  RowBox[{"{", "list", "}"}], "]"}]], "Input",ExpressionUUID->"62da6001-6b0c-\
4891-968b-cc7229e94c73"],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", "\<\"11,'some\\\\, title',date\"\>", "}"}], " "}]], "Print",
 GeneratedCell->False,
 CellAutoOverwrite->
  False,ExpressionUUID->"ee946968-c577-4c82-a7aa-f9947caa65be"],

Cell[BoxData[
 RowBox[{"Close", "[", "$Failed", "]"}]], "Output",ExpressionUUID->"12032ab7-01af-4df7-ada1-150b4930d731"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Each", " ", "row", " ", "is", " ", "comma", " ", "separated"}], 
    ",", " ", 
    RowBox[{
     RowBox[{"\"\<id, first, last\>\"", ".", " ", "For"}], " ", "Oct", " ", 
     RowBox[{"scrapings", ".", " ", "These"}], " ", "name", " ", "data", " ", 
     "are", " ", "used", " ", "by", " ", "database"}], ",", " ", 
    RowBox[{"turned", " ", "into", " ", "file", " ", "such", " ", "as", " ", 
     RowBox[{"metaDataNameDB", ".", "csv", ".", " ", "This"}], " ", "must", 
     " ", "also", " ", "be", " ", 
     RowBox[{"run", "!!"}], " ", "Besides", " ", 
     RowBox[{
      RowBox[{"getDataString", "[", "]"}], ".", " ", "July"}], " ", 
     "2018"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"getNameDBString", "[", 
     RowBox[{"metaData_List", ",", 
      RowBox[{"sep_String:", "\"\<\\n\>\""}]}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "dataList", ",", "getNameString2", ",", "stream", ",", "arXivClass", 
        ",", "getDateString", ",", "idStr", ",", "firstNameStr", ",", 
        "lastNameStr", ",", "firstNamePos"}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"getDateString", "=", 
        RowBox[{"Function", "[", 
         RowBox[{"dateList", ",", 
          RowBox[{"StringRiffle", "[", 
           RowBox[{
            RowBox[{"ToString", "/@", "dateList"}], ",", "\"\<-\>\""}], 
           "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"getNameString2", "=", 
        RowBox[{"Function", "[", 
         RowBox[{"namesList", ",", "\[IndentingNewLine]", 
          RowBox[{"Map", "[", "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{"need", " ", "to", " ", "remove", " ", 
             RowBox[{"e", ".", "g", ".", " ", 
              RowBox[{"\\[", "BackSlash", "]"}]}], " ", "and", " ", "the", 
             " ", 
             RowBox[{"like", "!"}]}], "*)"}], "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"firstNameStr", "=", 
                RowBox[{"StringReplace", "[", 
                 RowBox[{
                  RowBox[{"\"\<FirstName\>\"", "/.", "#"}], ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"\"\<\\\\\>\"", "\[Rule]", "\"\<\\\\\\\\\>\""}], 
                    ",", 
                    RowBox[{"\"\<'\>\"", "\[Rule]", "\"\<\\\\'\>\""}]}], 
                   "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
               RowBox[{"lastNameStr", "=", 
                RowBox[{"StringReplace", "[", 
                 RowBox[{
                  RowBox[{"\"\<LastName\>\"", "/.", "#"}], ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"\"\<\\\\\>\"", "\[Rule]", "\"\<\\\\\\\\\>\""}], 
                    ",", 
                    RowBox[{"\"\<'\>\"", "\[Rule]", "\"\<\\\\'\>\""}]}], 
                   "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
               RowBox[{"(*", 
                RowBox[{
                 RowBox[{
                 "only", " ", "find", " ", "the", " ", "first", " ", 
                  "period"}], ",", " ", 
                 RowBox[{"and", " ", "split", " ", "there"}]}], "*)"}], 
               "\[IndentingNewLine]", 
               RowBox[{"firstNamePos", "=", 
                RowBox[{"StringPosition", "[", 
                 RowBox[{"firstNameStr", ",", 
                  RowBox[{
                  "RegularExpression", "[", "\"\<[.\\\\s+]\>\"", "]"}], ",", 
                  "1"}], "]"}]}], ";", "\[IndentingNewLine]", 
               RowBox[{"(*", 
                RowBox[{
                 RowBox[{"construct", " ", "first"}], " ", "+", " ", 
                 RowBox[{"middle", " ", "name", " ", "string"}]}], "*)"}], 
               "\[IndentingNewLine]", 
               RowBox[{"firstNameStr", "=", 
                RowBox[{"If", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"firstNamePos", "===", 
                    RowBox[{"{", "}"}]}], " ", "||", " ", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"firstNamePos", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "===", 
                    RowBox[{"StringLength", "[", "firstNameStr", "]"}]}]}], 
                  "\[IndentingNewLine]", ",", 
                  RowBox[{"(*", 
                   RowBox[{
                   "empty", " ", "middle", " ", "name", " ", "string"}], 
                   "*)"}], "\[IndentingNewLine]", 
                  RowBox[{
                  "\"\<'\>\"", "<>", "firstNameStr", "<>", "\"\<',''\>\""}], 
                  "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
                  RowBox[{"\"\<'\>\"", "<>", 
                   RowBox[{"StringTake", "[", 
                    RowBox[{"firstNameStr", ",", 
                    RowBox[{"{", 
                    RowBox[{"1", ",", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"firstNamePos", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "-", "1"}]}], "}"}]}], 
                    "]"}], "<>", "\"\<','\>\"", "<>", 
                   RowBox[{"StringTrim", "@", 
                    RowBox[{"StringTake", "[", 
                    RowBox[{"firstNameStr", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"firstNamePos", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "+", "1"}], ",", 
                    RowBox[{"StringLength", "[", "firstNameStr", "]"}]}], 
                    "}"}]}], "]"}]}], "<>", "\"\<'\>\""}]}], 
                 "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", 
               RowBox[{"StringReplace", "[", 
                RowBox[{
                 RowBox[{
                 "firstNameStr", "<>", "\"\<,'\>\"", "<>", "lastNameStr", 
                  "<>", "\"\<'\>\""}], ",", 
                 RowBox[{"{", 
                  RowBox[{"\"\<.\>\"", "\[Rule]", "\"\<\>\""}], "}"}]}], 
                "]"}]}], ")"}], "&"}], "\[IndentingNewLine]", ",", 
            "\[IndentingNewLine]", "namesList"}], "]"}]}], 
         "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"dataList", "=", "\[IndentingNewLine]", 
        RowBox[{"Reap", "[", 
         RowBox[{
          RowBox[{"Map", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"(", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"arXivClass", "=", 
                RowBox[{"\"\<ArXivClasses\>\"", "/.", "#"}]}], ";", 
               "\[IndentingNewLine]", 
               RowBox[{"If", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"{", "}"}], "=!=", "arXivClass"}], " ", "&&", " ", 
                    RowBox[{"Or", "@@", 
                    RowBox[{"StringContainsQ", "[", 
                    RowBox[{"arXivClass", ",", "\"\<math\>\""}], "]"}]}]}], 
                   ")"}], "\[IndentingNewLine]", "||", 
                  RowBox[{
                   RowBox[{"{", "}"}], "===", "arXivClass"}]}], 
                 "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
                 RowBox[{
                  RowBox[{"idStr", "=", 
                   RowBox[{"StringReplace", "[", 
                    RowBox[{
                    RowBox[{"\"\<ArXivID\>\"", "/.", "#"}], ",", 
                    RowBox[{"\"\</\>\"", "\[Rule]", "\"\<\>\""}]}], "]"}]}], 
                  ";", "\[IndentingNewLine]", 
                  RowBox[{"Sow", "[", 
                   RowBox[{
                    RowBox[{"Map", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    "\"\<'\>\"", "<>", "idStr", "<>", "\"\<',\>\"", "<>", 
                    "#"}], "&"}], ",", "\[IndentingNewLine]", 
                    RowBox[{"getNameString2", "[", 
                    RowBox[{"\"\<Authors\>\"", "/.", "#"}], "]"}]}], 
                    "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
                    "\"\<paper\>\""}], "]"}], ";"}]}], "\[IndentingNewLine]", 
                "]"}]}], ")"}], "&"}], ",", "\[IndentingNewLine]", 
            "metaData"}], "]"}], "\[IndentingNewLine]", ",", 
          "\"\<paper\>\""}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"dataList", "=", 
        RowBox[{
         RowBox[{"dataList", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"Print", "[", 
          RowBox[{"\"\<dataList \>\"", ",", 
           RowBox[{"ExportString", "[", 
            RowBox[{
             RowBox[{"Flatten", "[", "dataList", "]"}], ",", "\"\<Text\>\""}],
             "]"}]}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{
          RowBox[{"Don", "'"}], "t", " ", "use", " ", 
          RowBox[{"ExportString", "[", 
           RowBox[{"nameStr", ",", " ", "\"\<Text\>\""}], "]"}]}], ",", " ", 
         RowBox[{
         "since", " ", "that", " ", "defaults", " ", "to", " ", "wrong", " ", 
          "encoding"}]}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"Export", "[", 
          RowBox[{"\"\<~/test/metaDataStringNameDB.txt\>\"", ","}], "]"}], 
         ";"}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{"Export", "[", 
         RowBox[{"stream", ",", 
          RowBox[{"StringRiffle", "[", 
           RowBox[{
            RowBox[{"Flatten", "[", "dataList", "]"}], ",", "sep"}], "]"}], 
          ",", " ", 
          RowBox[{"CharacterEncoding", "\[Rule]", "\"\<UTF8\>\""}]}], "]"}], 
        "*)"}], "\[IndentingNewLine]", 
       RowBox[{"stream", "=", 
        RowBox[{
        "OpenWrite", "[", 
         "\"\<~/thm/src/thmp/data/metaDataStringNameDB.txt\>\"", "]"}]}], ";",
        "\[IndentingNewLine]", 
       RowBox[{"Export", "[", 
        RowBox[{"stream", ",", 
         RowBox[{"StringRiffle", "[", 
          RowBox[{
           RowBox[{"Flatten", "[", "dataList", "]"}], ",", "sep"}], "]"}], 
         ",", " ", 
         RowBox[{"CharacterEncoding", "\[Rule]", "\"\<UTF8\>\""}]}], "]"}], 
       ";", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"WriteString", "[", 
          RowBox[{"stream", ",", 
           RowBox[{"StringRiffle", "[", 
            RowBox[{
             RowBox[{"Flatten", "[", "dataList", "]"}], ",", "\"\<\\n\>\""}], 
            "]"}]}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{"Close", "[", "stream", "]"}]}]}], "\[IndentingNewLine]", 
     "]"}]}], ";"}]}]], "Input",ExpressionUUID->"d21bb62a-0609-480b-b52a-\
9a37baa14e54"],

Cell[BoxData[
 RowBox[{
  RowBox[{"list", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\"\<ArXivClasses\>\"", "\[Rule]", "\"\<math\>\""}], ",", 
     RowBox[{"\"\<ArXivID\>\"", "\[Rule]", "\"\<11\>\""}], ",", " ", 
     RowBox[{"\"\<Title\>\"", "\[Rule]", "\"\<some, title\>\""}], ",", 
     RowBox[{"\"\<Date\>\"", "\[Rule]", "\"\<date\>\""}], ",", 
     RowBox[{"\"\<Authors\>\"", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"\"\<Name\>\"", "\[Rule]", "\"\<N. Gisin\>\""}], ",", 
          RowBox[{"\"\<FirstName\>\"", "\[Rule]", "\"\<N.\>\""}], ",", 
          RowBox[{"\"\<LastName\>\"", "\[Rule]", "\"\<Gisin\>\""}], ",", 
          RowBox[{"\"\<Organization\>\"", "\[Rule]", 
           RowBox[{"Missing", "[", "]"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"\"\<Name\>\"", "\[Rule]", "\"\<V.j. Scarani\>\""}], ",", 
          RowBox[{"\"\<FirstName\>\"", "\[Rule]", "\"\<V .aj.r\>\""}], ",", 
          RowBox[{"\"\<LastName\>\"", "\[Rule]", "\"\<Scarani\>\""}], ",", 
          RowBox[{"\"\<Organization\>\"", "\[Rule]", 
           RowBox[{"Missing", "[", "]"}]}]}], "}"}]}], "}"}]}]}], "}"}]}], 
  ";"}]], "Input",ExpressionUUID->"a3ed05a5-4ee3-40f6-a77d-b11a393547f1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"getNameDBString", "[", 
  RowBox[{"{", "list", "}"}], "]"}]], "Input",ExpressionUUID->"db0477ba-9e62-\
477b-96fa-e9d1280b0e2b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"dataList \"\>", 
   "\[InvisibleSpace]", "\<\"11,'N','','Gisin'\\n11,'V','ajr','Scarani'\"\>"}],
  SequenceForm["dataList ", "11,'N','','Gisin'\n11,'V','ajr','Scarani'"],
  Editable->False]], "Print",ExpressionUUID->"dbcf8d54-7269-49ea-9138-\
d08601830b50"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"\<\"11,'N','','Gisin'\"\>", 
    ",", "\<\"11,'V','ajr','Scarani'\"\>"}], "}"}], "}"}]], "Output",Expressio\
nUUID->"f253db2d-96f8-4fd8-8056-bf5c73d8a719"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{"\"\<11,'N','Gisin'\>\"", ",", "\"\<11,'V','Scarani'\>\""}], 
    "}"}], "}"}], " "}]], \
"Input",ExpressionUUID->"b02a1124-a887-40e1-82f2-9a65ac1d96d6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{"\"\<11,'NV','Gisin'\>\"", ",", "\"\<11,'NV','Scarani'\>\""}], 
    "}"}], "}"}], " "}]], \
"Input",ExpressionUUID->"8bf57364-7032-442b-bdd4-b14f22e1c1e2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{
    "\"\<11,'NV,'',,'Gisin'\>\"", ",", "\"\<11,'NV,'',,'Scarani'\>\""}], 
    "}"}], "}"}], " "}]], \
"Input",ExpressionUUID->"a09a2a3b-b358-47ea-86a9-260fe38c3613"],

Cell[BoxData[
 RowBox[{
  RowBox[{"getNameString2", "=", 
   RowBox[{"Function", "[", 
    RowBox[{"namesList", ",", 
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"StringReplace", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\"\<FirstName\>\"", "/.", "#"}], ")"}], "<>", 
           "\"\<,\>\"", "<>", 
           RowBox[{"(", 
            RowBox[{"\"\<LastName\>\"", "/.", "#"}], ")"}]}], ",", 
          RowBox[{"\"\<'\>\"", "\[Rule]", "\"\<\\\\'\>\""}]}], "]"}], "&"}], 
       ",", "namesList"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], 
  ";"}]], "Input",ExpressionUUID->"743671bd-5727-407e-bfd1-d9c5dc9adb58"],

Cell[BoxData[
 RowBox[{"getNameString2", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\"\<Name\>\"", "\[Rule]", "\"\<N. Gisin\>\""}], ",", 
      RowBox[{"\"\<FirstName\>\"", "\[Rule]", "\"\<N.\>\""}], ",", 
      RowBox[{"\"\<LastName\>\"", "\[Rule]", "\"\<Gisin\>\""}], ",", 
      RowBox[{"\"\<Organization\>\"", "\[Rule]", 
       RowBox[{"Missing", "[", "]"}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\"\<Name\>\"", "\[Rule]", "\"\<V. Scarani\>\""}], ",", 
      RowBox[{"\"\<FirstName\>\"", "\[Rule]", "\"\<V.\>\""}], ",", 
      RowBox[{"\"\<LastName\>\"", "\[Rule]", "\"\<Scarani\>\""}], ",", 
      RowBox[{"\"\<Organization\>\"", "\[Rule]", 
       RowBox[{"Missing", "[", "]"}]}]}], "}"}]}], "}"}], "]"}]], "Input",Expr\
essionUUID->"1f30ee5d-3f8c-4828-8108-e5ab5d31b5a7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"\"\<N.,Gisin\>\"", ",", "\"\<V.,Scarani\>\""}], "}"}], " "}]], \
"Input",ExpressionUUID->"afda2ab9-332c-403d-b8d2-d44e0eb9b8b4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"separate", " ", "first", " ", "and", " ", "last", " ", "name"}], 
    ",", " ", 
    RowBox[{"separated", " ", "by", " ", "comma"}], ",", " ", 
    RowBox[{
    "where", " ", "each", " ", "author", " ", "is", " ", "separated", " ", 
     "by", " ", "semicolon"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"returns", " ", "list"}], ",", " ", 
    RowBox[{"e", ".", "g", ".", " ", 
     RowBox[{"{", "\"\<e,s\>\"", "}"}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"getNameString2", "=", 
   RowBox[{"Function", "[", 
    RowBox[{"namesList", ",", 
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"\"\<FirstName\>\"", "/.", "#"}], ")"}], "<>", "\"\<,\>\"", 
         "<>", 
         RowBox[{"(", 
          RowBox[{"\"\<LastName\>\"", "/.", "#"}], ")"}]}], "&"}], ",", 
       "namesList"}], "]"}]}], "\[IndentingNewLine]", "]"}]}]}]], "Input",Expr\
essionUUID->"9e09de0e-fccd-45d2-99dc-52055b0bf92d"],

Cell[BoxData[
 RowBox[{"Function", "[", 
  RowBox[{"namesList", ",", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"\<\"FirstName\"\>", "/.", "\[VeryThinSpace]", "#1"}], ")"}], 
       "<>", "\<\",\"\>", "<>", 
       RowBox[{"(", 
        RowBox[{"\<\"LastName\"\>", "/.", "\[VeryThinSpace]", "#1"}], ")"}]}],
       "&"}], ")"}], "/@", "namesList"}]}], "]"}]], "Output",ExpressionUUID->\
"f31149f0-4542-4141-800e-fc25ab44d032"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%59", "[", 
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\"\<FirstName\>\"", "\[Rule]", "\"\<e\>\""}], ",", 
     RowBox[{"\"\<LastName\>\"", "\[Rule]", "\"\<s\>\""}]}], "}"}], "}"}], 
  "]"}]], "Input",ExpressionUUID->"20286dc6-fd99-42b5-8c60-e9be0a069df2"],

Cell[BoxData[
 RowBox[{"{", "\<\"e,s\"\>", "}"}]], "Output",ExpressionUUID->"688576fb-3c1d-48c6-9a76-a6831229766f"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"datelist", " ", 
    RowBox[{"e", ".", "g", ".", " ", 
     RowBox[{"{", 
      RowBox[{"1193", ",", "2", ",", "31"}], "}"}]}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"getDateString", "=", 
   RowBox[{"Function", "[", 
    RowBox[{"dateList", ",", 
     RowBox[{"StringRiffle", "[", 
      RowBox[{
       RowBox[{"ToString", "/@", "dateList"}], ",", "\"\<-\>\""}], "]"}]}], 
    "]"}]}]}]], "Input",ExpressionUUID->"0cff40eb-5cc8-4dfd-a835-\
1f800bb219a3"],

Cell[BoxData[
 RowBox[{"StringRiffle", "[", 
  RowBox[{
   RowBox[{"ToString", "/@", 
    RowBox[{"{", 
     RowBox[{"1193", ",", "2", ",", "31"}], "}"}]}], ",", "\"\<-\>\""}], 
  "]"}]], "Input",ExpressionUUID->"6373184a-50fb-4dd4-b459-9557d52ba58f"],

Cell[BoxData["\"\<1193-2-31\>\""], "Input",ExpressionUUID->"b6c30c14-da92-4302-9bc9-331013f83a7e"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "get", " ", "list", " ", "of", " ", "data", " ", "from", " ", "arXiv", " ", 
   "zipped", " ", "file"}], " ", "*)"}]], "Input",ExpressionUUID->"12e10f24-\
3fe7-4cc9-9a15-5add3c7b289c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"datalist", "=", 
   RowBox[{
   "ReadList", "[", "\"\<~/msc/data/Scrapings-2018-05-09.m\>\"", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"In", "[", "3", "]"}], ":=", 
    RowBox[{
     RowBox[{
      RowBox[{"Length", "[", 
       RowBox[{"datalist", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "]"}], " ", 
      RowBox[{"Out", "[", "3", "]"}]}], "=", "1661458"}]}], 
   "*)"}]}]}], "Input",ExpressionUUID->"31934e52-e997-4812-858e-b060326daca6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NumberQ", "[", 
  RowBox[{"ToExpression", "[", "\"\<2\>\"", "]"}], "]"}]], "Input",ExpressionU\
UID->"9015e30f-510c-4138-9ebe-03204d8089da"],

Cell[BoxData["True"], "Output",ExpressionUUID->"13ae3dbb-6619-4d65-8b71-bbf6cef1e25b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DeleteCases", "[", 
  RowBox[{"listTemp", ",", 
   RowBox[{"_", "?", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"StringTake", "[", 
         RowBox[{"#", ",", "1"}], "]"}], "===", "\"\<(\>\""}], "||", 
       RowBox[{"LetterQ", "[", "#", "]"}]}], "&"}], ")"}]}]}], "]"}]], "Input",\
ExpressionUUID->"8266af3b-d7ab-48c6-8650-751ae4dada3a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"57M27\"\>", ",", "\<\"06F99\"\>"}], "}"}]], "Output",Expression\
UUID->"48c8e0d1-7678-4d07-b32b-f7778005aae7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LetterQ", "[", "\"\<1\>\"", "]"}]], "Input",ExpressionUUID->"f3e8deee-31fc-4005-a94b-7712b9ea56e5"],

Cell[BoxData["False"], "Output",ExpressionUUID->"197f1a68-383b-41e0-8937-d447c18eb5b5"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"listTemp", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<57M27\>\"", ",", "\"\<(Primary)\>\"", ",", "\"\<primary\>\"", ",", 
     "\"\<06F99\>\"", ",", "\"\<(Secondary)\>\""}], "}"}]}], ";"}]], "Input",E\
xpressionUUID->"19ba55eb-2b24-4ccb-9abe-edcd2b882bdf"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{
     "get", " ", "msc", " ", "classifications", " ", "to", " ", "train", " ", 
      "a", " ", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"classifier", "."}], " ", "/", "prospectus"}], "/", 
         "crawling"}], "/", "_arxiv"}], "/", "arXiv"}]}], "-", 
     RowBox[{
      RowBox[{"arXivXML", "/", 
       RowBox[{"PaperIDAndClassifications", ".", "m"}]}], " ", "Use", " ", 
      "this", " ", "one", " ", "Oct", " ", "2017.", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"ArXivID", "\[Rule]", "0704.0002"}], ",", 
        RowBox[{"Date", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"2007", ",", "3", ",", "30"}], "}"}]}], ",", 
        RowBox[{"ArXivClasses", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"math", ".", "CO"}], ",", 
           RowBox[{"cs", ".", "CG"}]}], "}"}]}], ",", 
        RowBox[{"MSCClass", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"05", "C85"}], ",", 
           RowBox[{"05", "C70"}], ",", 
           RowBox[{"68", "R10"}], ",", 
           RowBox[{"05", "B35"}]}], "}"}]}], ",", 
        RowBox[{"ACMClass", "\[Rule]", 
         RowBox[{"Missing", "[", "]"}]}]}], "}"}]}]}], ","}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"getMscString", "[", "metaData_List", "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "dataList", ",", "getNameString1", ",", "stream", ",", "arXivClass", 
        ",", "mscStr", ",", "mscList"}], "}"}], ",", 
      RowBox[{
       RowBox[{"getNameString1", "=", 
        RowBox[{"Function", "[", 
         RowBox[{"names", ",", 
          RowBox[{"StringRiffle", "[", 
           RowBox[{
            RowBox[{"Map", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"\"\<FirstName\>\"", "/.", "#"}], "&"}], ",", 
              "names"}], "]"}], ",", "\"\<, \>\""}], "]"}]}], "]"}]}], ";", 
       RowBox[{"dataList", "=", "\[IndentingNewLine]", 
        RowBox[{"Reap", "[", 
         RowBox[{
          RowBox[{"Map", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"(", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"arXivClass", "=", 
                RowBox[{"\"\<ArXivClasses\>\"", "/.", "#"}]}], ";", 
               "\[IndentingNewLine]", 
               RowBox[{"If", "[", 
                RowBox[{"(*", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"{", "}"}], "=!=", "arXivClass"}], " ", "&&", " ", 
                    RowBox[{"Or", "@@", 
                    RowBox[{"StringContainsQ", "[", 
                    RowBox[{"arXivClass", ",", "\"\<math\>\""}], "]"}]}]}], 
                   ")"}], "\[IndentingNewLine]", "||", 
                  RowBox[{
                   RowBox[{"{", "}"}], "===", "arXivClass"}], " ", "||"}], 
                 "*)"}], " ", 
                RowBox[{
                 RowBox[{
                  RowBox[{"Head", "[", 
                   RowBox[{"\"\<MSCClass\>\"", "/.", "#"}], "]"}], "=!=", 
                  "Missing"}], "\[IndentingNewLine]", ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{
                  RowBox[{"mscList", "=", 
                   RowBox[{"DeleteCases", "[", 
                    RowBox[{
                    RowBox[{"\"\<MSCClass\>\"", "/.", "#"}], ",", 
                    RowBox[{"_", "?", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"StringTake", "[", 
                    RowBox[{"#", ",", "1"}], "]"}], "===", "\"\<(\>\""}], "||", 
                    RowBox[{"LetterQ", "[", "#", "]"}]}], "&"}], ")"}]}]}], 
                    "]"}]}], ";", "\[IndentingNewLine]", 
                  RowBox[{"mscStr", " ", "=", " ", 
                   RowBox[{"StringRiffle", "[", 
                    RowBox[{"mscList", ",", "\"\<,\>\""}], "]"}]}], ";", 
                  "\[IndentingNewLine]", 
                  RowBox[{"mscStr", " ", "=", " ", 
                   RowBox[{"StringJoin", "[", 
                    RowBox[{
                    RowBox[{"StringReplace", "[", 
                    RowBox[{
                    RowBox[{"\"\<ArXivID\>\"", "/.", "#"}], ",", 
                    RowBox[{"\"\</\>\"", "\[Rule]", "\"\<\>\""}]}], "]"}], 
                    ",", "\"\<,\>\"", ",", "mscStr"}], "]"}]}], ";", 
                  "\[IndentingNewLine]", 
                  RowBox[{"Sow", "[", 
                   RowBox[{"mscStr", ",", "\"\<paper\>\""}], "]"}], ";"}]}], 
                "\[IndentingNewLine]", "]"}]}], ")"}], "&"}], ",", 
            "\[IndentingNewLine]", "metaData"}], "]"}], "\[IndentingNewLine]",
           ",", "\"\<paper\>\""}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"dataList", "=", 
        RowBox[{
         RowBox[{"dataList", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"stream", "=", 
        RowBox[{
        "OpenWrite", "[", "\"\<~/msc/data/mscDataString1.txt\>\"", "]"}]}], 
       ";", 
       RowBox[{"WriteString", "[", 
        RowBox[{"stream", ",", 
         RowBox[{"ExportString", "[", 
          RowBox[{
           RowBox[{"Flatten", "[", "dataList", "]"}], ",", "\"\<Text\>\""}], 
          "]"}]}], "]"}], ";", 
       RowBox[{"Close", "[", "stream", "]"}]}]}], "]"}]}], ";"}]}]], "Input",E\
xpressionUUID->"d5637a50-1743-4493-803e-915371fb328c"],

Cell[CellGroupData[{

Cell["\<\
Need to export instead ot OpenWrite, \
Export[\[OpenCurlyDoubleQuote]~/test/testMay18_0.txt\[CloseCurlyDoubleQuote],\
content], where content can contain e.g. \[OpenCurlyDoubleQuote]\\[EAcut e ]\
\>", "Item",ExpressionUUID->"4f8be73a-c3ca-46a7-a38b-446057de7c07"],

Cell["\<\
beware that some have the form \
q-bio0701036,92D20,(Primary),60J10,68Q70,(Secondary)
quant-ph0111094,81-01,81-04, OR q-alg9610016,05Exx,33Cxx
q-alg9610017,05Exx,33-xx\
\>", "Item",ExpressionUUID->"75f2b9fa-7a93-46bb-970c-00de40eb48b4"],

Cell["Below are functions on building MSC classifiers", "Item",ExpressionUUID->"b5012e7e-8c87-451c-a41a-0ad4fc221103"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "get", " ", "MSC", " ", "classifications", " ", "from", " ", "supplied", 
    " ", "list", " ", "of", " ", "meta", " ", "information"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"getMSC", "[", "list_List", "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"mscAss", ",", "paperId"}], "}"}], ",", "\[IndentingNewLine]", 
      
      RowBox[{
       RowBox[{"mscAss", "=", 
        RowBox[{"Reap", "[", 
         RowBox[{
          RowBox[{"Map", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"If", "[", "\[IndentingNewLine]", 
              RowBox[{"(*", 
               RowBox[{
               "note", " ", "that", " ", "some", " ", "have", " ", "form", 
                " ", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"60", "E05"}], ",", 
                  RowBox[{"(", "Primary", ")"}], ",", 
                  RowBox[{"60", "E07"}], ",", 
                  RowBox[{"(", "Secondary", ")"}]}]}]}], "*)"}], 
              "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{
                RowBox[{"Head", "[", 
                 RowBox[{"\"\<MSCClass\>\"", "/.", "#"}], "]"}], "=!=", 
                "Missing"}], ",", "\[IndentingNewLine]", 
               RowBox[{"(*", 
                RowBox[{
                 RowBox[{
                 "remove", " ", "slash", " ", "from", " ", "eg", " ", "q"}], 
                 "-", 
                 RowBox[{"alg", "/", "35235"}]}], " ", "*)"}], 
               "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"paperId", "=", 
                 RowBox[{"StringReplace", "[", 
                  RowBox[{
                   RowBox[{"\"\<ArXivID\>\"", "/.", "#"}], ",", 
                   RowBox[{"\"\</\>\"", "\[Rule]", "\"\<\>\""}]}], "]"}]}], 
                ";", "\[IndentingNewLine]", 
                RowBox[{"Sow", "[", 
                 RowBox[{
                  RowBox[{"paperId", "\[Rule]", 
                   RowBox[{"(", 
                    RowBox[{"\"\<MSCClass\>\"", "/.", "#"}], ")"}]}], ",", 
                  "\"\<msc\>\""}], "]"}]}]}], "\[IndentingNewLine]", "]"}], 
             "&"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
            "list"}], "]"}], ",", "\"\<msc\>\""}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"mscAss", "=", 
        RowBox[{"Association", "[", 
         RowBox[{
          RowBox[{"mscAss", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"Print", "[", 
        RowBox[{"Length", "[", "mscAss", "]"}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"DumpSave", "[", 
        RowBox[{"\"\<mscAss.mx\>\"", ",", "mscAss"}], "]"}], ";"}]}], 
     "\[IndentingNewLine]", "]"}]}], ";"}]}]], "Input",ExpressionUUID->\
"1920f0cb-7b4e-488b-8e6b-2a6036b22cb9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "create", " ", "List", " ", "of", " ", "rules", " ", "for", " ", 
     "vectors", " ", "and", " ", "their", " ", "MSC", " ", 
     RowBox[{"classes", ".", " ", "The"}], " ", "keys", " ", "are", " ", 
     "sparse", " ", "arrays"}], ",", " ", 
    RowBox[{
     RowBox[{"rather", " ", "indices", " ", "of", " ", "non"}], "-", 
     RowBox[{"default", " ", "entries", " ", "of", " ", "the", " ", 
      RowBox[{"SparseArray", ".", " ", "Can"}], " ", "create", " ", 
      "classes"}]}]}], "  ", "*)"}], "\[IndentingNewLine]"}]], "Input",Express\
ionUUID->"413d60a9-7fab-4228-a8b1-5ace013f5ae8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Classify", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"sa5", "\[Rule]", "3"}], ",", 
    RowBox[{"sa7", "\[Rule]", "7"}]}], "}"}], "]"}]], "Input",ExpressionUUID->\
"05dae943-9805-42e9-adcc-caf54833a7c2"],

Cell[BoxData[
 TagBox[
  TemplateBox[{RowBox[{
      StyleBox[
       TagBox["ClassifierFunction", "SummaryHead"], 
       "NonInterpretableSummary"], 
      StyleBox["[", "NonInterpretableSummary"], 
      DynamicModuleBox[{
       Typeset`open$$ = True, Typeset`embedState$$ = "Ready"}, 
       TemplateBox[{
         PaneSelectorBox[{False -> GridBox[{{
               PaneBox[
                ButtonBox[
                 DynamicBox[
                  FEPrivate`FrontEndResource[
                  "FEBitmaps", "SquarePlusIconMedium"]], 
                 ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                 None, Evaluator -> Automatic, Method -> "Preemptive"], 
                Alignment -> {Center, Center}, ImageSize -> 
                Dynamic[{
                  Automatic, 
                   3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
               GraphicsBox[{{
                  PointSize[0.13], 
                  GrayLevel[0.45], 
                  
                  PointBox[{{0.9821769431797024, -0.440194219686987}, {
                   1.1339776261519132`, 0.8056918676854272}, {
                   0.5279892326667741, 0.6574306661126254}, {
                   0.022147046479890797`, 1.4937877187998898`}}], 
                  GrayLevel[0.7], 
                  
                  PointBox[{{-0.9815166384819979, 
                   0.15045697525228735`}, {-0.5923526886966953, \
-0.33441771553094035`}, {-0.005656646679640442, -1.462421365651345}, \
{-1.0734370436522753`, -1.3729645043477454`}}]}, {
                  GrayLevel[0.55], 
                  AbsoluteThickness[1.5], 
                  LineBox[{{-1., 1.5}, {1, -1.6}}]}}, {
                Axes -> {False, False}, AxesLabel -> {None, None}, 
                 AxesOrigin -> {0, 0}, BaseStyle -> {FontFamily -> "Arial", 
                   AbsoluteThickness[1.5]}, DisplayFunction -> Identity, 
                 Frame -> {{True, True}, {True, True}}, 
                 FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                 Directive[
                   Thickness[Tiny], 
                   GrayLevel[0.7]], 
                 FrameTicks -> {{None, None}, {None, None}}, 
                 GridLines -> {None, None}, 
                 LabelStyle -> {FontFamily -> "Arial"}, 
                 Method -> {"ScalingFunctions" -> None}, 
                 PlotRange -> {{-1., 1}, {-1.3, 1.1}}, PlotRangeClipping -> 
                 True, PlotRangePadding -> {{0.7, 0.7}, {0.7, 0.7}}, 
                 Ticks -> {None, None}}, Axes -> False, AspectRatio -> 1, 
                ImageSize -> 
                Dynamic[{
                  Automatic, 
                   3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], Frame -> True, FrameTicks -> None, 
                FrameStyle -> Directive[
                  Opacity[0.5], 
                  Thickness[Tiny], 
                  RGBColor[0.368417, 0.506779, 0.709798]], Background -> 
                GrayLevel[0.94]], 
               GridBox[{{
                  RowBox[{
                    TagBox["\"Input type: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"NumericalSequence\"", "SummaryItem"]}]}, {
                  RowBox[{
                    TagBox["\"Classes: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    
                    TemplateBox[{",", "\",\"", "3", "7"}, 
                    "RowWithSeparators"], "SummaryItem"]}]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                BaseStyle -> {
                 ShowStringCharacters -> False, NumberMarks -> False, 
                  PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
             GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             BaselinePosition -> {1, 1}], True -> GridBox[{{
               PaneBox[
                ButtonBox[
                 DynamicBox[
                  FEPrivate`FrontEndResource[
                  "FEBitmaps", "SquareMinusIconMedium"]], 
                 ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                 None, Evaluator -> Automatic, Method -> "Preemptive"], 
                Alignment -> {Center, Center}, ImageSize -> 
                Dynamic[{
                  Automatic, 
                   3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
               GraphicsBox[{{
                  PointSize[0.13], 
                  GrayLevel[0.45], 
                  
                  PointBox[{{0.9821769431797024, -0.440194219686987}, {
                   1.1339776261519132`, 0.8056918676854272}, {
                   0.5279892326667741, 0.6574306661126254}, {
                   0.022147046479890797`, 1.4937877187998898`}}], 
                  GrayLevel[0.7], 
                  
                  PointBox[{{-0.9815166384819979, 
                   0.15045697525228735`}, {-0.5923526886966953, \
-0.33441771553094035`}, {-0.005656646679640442, -1.462421365651345}, \
{-1.0734370436522753`, -1.3729645043477454`}}]}, {
                  GrayLevel[0.55], 
                  AbsoluteThickness[1.5], 
                  LineBox[{{-1., 1.5}, {1, -1.6}}]}}, {
                Axes -> {False, False}, AxesLabel -> {None, None}, 
                 AxesOrigin -> {0, 0}, BaseStyle -> {FontFamily -> "Arial", 
                   AbsoluteThickness[1.5]}, DisplayFunction -> Identity, 
                 Frame -> {{True, True}, {True, True}}, 
                 FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                 Directive[
                   Thickness[Tiny], 
                   GrayLevel[0.7]], 
                 FrameTicks -> {{None, None}, {None, None}}, 
                 GridLines -> {None, None}, 
                 LabelStyle -> {FontFamily -> "Arial"}, 
                 Method -> {"ScalingFunctions" -> None}, 
                 PlotRange -> {{-1., 1}, {-1.3, 1.1}}, PlotRangeClipping -> 
                 True, PlotRangePadding -> {{0.7, 0.7}, {0.7, 0.7}}, 
                 Ticks -> {None, None}}, Axes -> False, AspectRatio -> 1, 
                ImageSize -> 
                Dynamic[{
                  Automatic, 
                   3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], Frame -> True, FrameTicks -> None, 
                FrameStyle -> Directive[
                  Opacity[0.5], 
                  Thickness[Tiny], 
                  RGBColor[0.368417, 0.506779, 0.709798]], Background -> 
                GrayLevel[0.94]], 
               GridBox[{{
                  RowBox[{
                    TagBox["\"Input type: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"NumericalSequence\"", "SummaryItem"]}]}, {
                  RowBox[{
                    TagBox["\"Classes: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    
                    TemplateBox[{",", "\",\"", "3", "7"}, 
                    "RowWithSeparators"], "SummaryItem"]}]}, {
                  RowBox[{
                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"NearestNeighbors\"", "SummaryItem"]}]}, {
                  RowBox[{
                    TagBox[
                    "\"Number of training examples: \"", 
                    "SummaryItemAnnotation"], "\[InvisibleSpace]", 
                    TagBox["2", "SummaryItem"]}]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                BaseStyle -> {
                 ShowStringCharacters -> False, NumberMarks -> False, 
                  PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
             GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             BaselinePosition -> {1, 1}]}, 
          Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel", 
        DisplayFunction -> (
         ButtonBox[#, Active -> False, Alignment -> Left, 
          Appearance -> {
           "Default" -> 
            FrontEnd`FileName[{"Typeset", "SummaryBox"}, "Panel.9.png"]}, 
          FrameMargins -> 7, BaseStyle -> {}, 
          DefaultBaseStyle -> {"Panel", Background -> None}, BaselinePosition -> 
          Baseline]& )], DynamicModuleValues :> {}], 
      StyleBox["]", "NonInterpretableSummary"]}]},
   "CopyTag",
   DisplayFunction->(#& ),
   InterpretationFunction->("ClassifierFunction[\[Ellipsis]]"& )],
  False,
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",ExpressionUUID->"b6ed617f-cf98-4d7d-8c01-\
4a695bf1b776"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"StringCases", "[", 
  RowBox[{"\"\<qu-d/3w56\>\"", ",", 
   RowBox[{
    RowBox[{"RegularExpression", "[", "\"\<(.+?)/(.+)\>\"", "]"}], "\[Rule]", 
    
    RowBox[{"\"\<$1\>\"", "<>", "\"\<$2\>\""}]}]}], "]"}]], "Input",Expression\
UUID->"d27d675b-2df5-4fa0-b67a-5bfcf8f8c933"],

Cell[BoxData[
 RowBox[{"{", "\<\"qu-d3w56\"\>", "}"}]], "Output",ExpressionUUID->"38ca48c7-0cc3-42b9-83f2-05538db3236e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sequence", "@@", 
  RowBox[{"StringContainsQ", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\"\<math-ph\>\"", ",", "\"\<gr-qc\>\""}], "}"}], ",", 
    "\"\<math\>\""}], "]"}]}]], "Input",ExpressionUUID->"8c8c77c7-251d-4075-\
8a43-fc4f1cac9d1a"],

Cell[BoxData[
 RowBox[{"Sequence", "[", 
  RowBox[{"True", ",", "False"}], "]"}]], "Output",ExpressionUUID->"b9c82553-\
cd56-435c-bc6c-200f4a6136b8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Attributes", "[", "Plus", "]"}]], "Input",ExpressionUUID->"6d5dc82b-d085-4148-a501-10abb22ccadf"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "Flat", ",", "Listable", ",", "NumericFunction", ",", "OneIdentity", ",", 
   "Orderless", ",", "Protected"}], "}"}]], "Output",ExpressionUUID->\
"3c514e85-53e8-418c-9839-4689553fa501"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Or", "[", 
  RowBox[{"Sequence", "@@", 
   RowBox[{"StringContainsQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\"\<math-ph\>\"", ",", "\"\<gr-qc\>\""}], "}"}], ",", 
     "\"\<math\>\""}], "]"}]}], "]"}]], "Input",ExpressionUUID->"577b3d8f-\
5283-4e92-9e7a-3fe5906f672d"],

Cell[BoxData[
 RowBox[{"Sequence", "[", 
  RowBox[{"True", ",", "False"}], "]"}]], "Output",ExpressionUUID->"25ff40f2-\
3d66-4f03-afb9-d8c4b83ba93e"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\"\<Authors\>\"", "\[Rule]", 
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\"\<FullName\>\"", "\[Rule]", "\"\<Durga P. Choudhury\>\""}], 
     ",", 
     RowBox[{"\"\<FirstName\>\"", "\[Rule]", "\"\<Durga P.\>\""}], ",", 
     RowBox[{"\"\<LastName\>\"", "\[Rule]", "\"\<Choudhury\>\""}], ",", 
     RowBox[{
     "\"\<Affiliation\>\"", "\[Rule]", 
      "\"\<Physics Department, Northeastern University and Rome Laboratory, \
Hanscom AFB.\>\""}]}], "}"}], "}"}]}]], "Input",ExpressionUUID->"205848aa-\
ebe8-4697-b7bc-4ef2ee8621e7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"getNameString", "[", "names_List", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "}"}], ",", 
    RowBox[{"StringJoin", "[", 
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"StringJoin", "[", 
         RowBox[{
          RowBox[{"\"\<forenames\>\"", "/.", "#"}], ",", "\"\< \>\"", ",", 
          RowBox[{"\"\<keyname\>\"", "/.", "#"}], ",", "\"\<, \>\""}], "]"}], 
        "&"}], ",", "names"}], "]"}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.711803072990244*^9, 3.7118030852737827`*^9}, {
  3.711803119257182*^9, 3.711803119958754*^9}, {3.711803192442934*^9, 
  3.7118032075729218`*^9}, {3.711803284187168*^9, 3.7118033504497223`*^9}, {
  3.711803388522827*^9, 
  3.7118033896092367`*^9}},ExpressionUUID->"ded1e94a-2205-44a2-9c71-\
ecf5c71e9fe9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"for", " ", "Oct", " ", "2017", " ", "file"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"getNameString2", "[", "names_List", "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "}"}], ",", 
      RowBox[{"StringRiffle", "[", 
       RowBox[{
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"\"\<Name\>\"", "/.", "#"}], "&"}], ",", "names"}], "]"}], 
        ",", "\"\<, \>\""}], "]"}]}], "]"}]}], ";"}]}]], "Input",ExpressionUUI\
D->"fa339ef5-01d5-4838-ac73-ea34830178d8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\"\<FullName\>\"", "\[Rule]", "\"\<Durga P. Choudhury\>\""}], 
      ",", 
      RowBox[{"\"\<FirstName\>\"", "\[Rule]", "\"\<Durga P.\>\""}], ",", 
      RowBox[{"\"\<LastName\>\"", "\[Rule]", "\"\<Choudhury\>\""}], ",", 
      RowBox[{
      "\"\<Affiliation\>\"", "\[Rule]", 
       "\"\<Physics Department, Northeastern University and Rome Laboratory, \
Hanscom AFB.\>\""}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\"\<FullName\>\"", "\[Rule]", "\"\<Durga P. Choudhury\>\""}], 
      ",", 
      RowBox[{"\"\<FirstName\>\"", "\[Rule]", "\"\<Durga P.\>\""}], ",", 
      RowBox[{"\"\<LastName\>\"", "\[Rule]", "\"\<Choudhury\>\""}], ",", 
      RowBox[{
      "\"\<Affiliation\>\"", "\[Rule]", 
       "\"\<Physics Department, Northeastern University and Rome Laboratory, \
Hanscom AFB.\>\""}]}], "}"}]}], "}"}], ";"}]], "Input",ExpressionUUID->\
"75ce684e-ef04-4a87-be29-8069056b558d"],

Cell[BoxData["\"\<{\\\"ArXivID\\\" -> \\\"solv-int/9902002\\\", \\\"DOI\\\" \
-> Missing[], \\\"Year\\\" -> 1999, \n \\\"Date\\\" -> {1999, 1, 31},\>\""], \
"Input",ExpressionUUID->"469f7cf3-0943-4184-a0a0-4a46ab0f4dc4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"getDataString", "[", "partialScrape", "]"}]], "Input",
 CellChangeTimes->{{3.711802889864691*^9, 
  3.711802894115409*^9}},ExpressionUUID->"8d64b426-0b47-410b-a8fa-\
4274719d6fca"],

Cell[BoxData["\<\"0704.0006\\n2007-03-31\\nBosonic characters of atomic \
Cooper pairs across resonance\\n\\\"keyname\\\" -> \
\\\"Pong\\\"\\n\\\"forenames\\\" -> \\\"Y. H.\\\"\\n\\\"keyname\\\" -> \
\\\"Law\\\"\\n\\\"forenames\\\" -> \\\"C. \
K.\\\"\\n0704.0010\\n2007-03-31\\nPartial cubes: structures, \
characterizations, and constructions\\n\\\"keyname\\\" -> \\\"Ovchinnikov\\\"\
\\n\\\"forenames\\\" -> \
\\\"Sergei\\\"\\n0704.0025\\n2007-04-02\\nSpectroscopic Properties of \
Polarons in Strongly Correlated Systems by Exact Diagrammatic Monte Carlo \
Method\\n\\\"keyname\\\" -> \\\"Mishchenko\\\"\\n\\\"forenames\\\" -> \\\"A. \
S.\\\"\\n\\\"affiliation\\\" -> \\\"CREST, Japan Science and Technology \
Agency\\\"\\n\\\"affiliation\\\" -> \\\"Russian Research Centre ``Kurchatov \
Institute''\\\"\\n\\\"keyname\\\" -> \\\"Nagaosa\\\"\\n\\\"forenames\\\" -> \
\\\"N.\\\"\\n\\\"affiliation\\\" -> \\\"CREST, Japan Science and Technology \
Agency\\\"\\n\\\"affiliation\\\" -> \\\"The University of \
Tokyo\\\"\\n0704.0034\\n2007-03-31\\nOrigin of adaptive mutants: a quantum \
measurement?\\n\\\"keyname\\\" -> \\\"Ogryzko\\\"\\n\\\"forenames\\\" -> \
\\\"Vasily\\\"\\n0704.0047\\n2007-04-01\\nIntelligent location of \
simultaneously active acoustic emission sources: Part I\\n\\\"keyname\\\" -> \
\\\"Kosel\\\"\\n\\\"forenames\\\" -> \\\"T.\\\"\\n\\\"keyname\\\" -> \
\\\"Grabec\\\"\\n\\\"forenames\\\" -> \
\\\"I.\\\"\\n0704.0050\\n2007-04-01\\nIntelligent location of simultaneously \
active acoustic emission sources: Part II\\n\\\"keyname\\\" -> \
\\\"Kosel\\\"\\n\\\"forenames\\\" -> \\\"T.\\\"\\n\\\"keyname\\\" -> \
\\\"Grabec\\\"\\n\\\"forenames\\\" -> \
\\\"I.\\\"\\n0704.0052\\n2007-03-31\\nQuantum Field Theory on Curved \
Backgrounds. II. Spacetime Symmetries\\n\\\"keyname\\\" -> \\\"Jaffe\\\"\\n\\\
\"forenames\\\" -> \\\"Arthur\\\"\\n\\\"affiliation\\\" -> \\\"Harvard \
University\\\"\\n\\\"keyname\\\" -> \\\"Ritter\\\"\\n\\\"forenames\\\" -> \
\\\"Gordon\\\"\\n\\\"affiliation\\\" -> \\\"Harvard \
University\\\"\\n0704.0066\\n2007-04-01\\nLagrangian quantum field theory in \
momentum picture. IV. Commutation relations for free fields\\n\\\"keyname\\\" \
-> \\\"Iliev\\\"\\n\\\"forenames\\\" -> \\\"Bozhidar Z.\\\"\\n\\\"affiliation\
\\\" -> \\\"Institute for Nuclear Research and Nuclear Energy, Bulgarian \
Academy of Sciences, Sofia, Bulgaria\\\"\\n0704.0071\\n2007-04-01\\nPairwise \
comparisons of typological profiles (of languages)\\n\\\"keyname\\\" -> \
\\\"Wichmann\\\"\\n\\\"forenames\\\" -> \\\"S.\\\"\\n\\\"keyname\\\" -> \
\\\"Holman\\\"\\n\\\"forenames\\\" -> \\\"E. \
W.\\\"\\n0704.0077\\n2007-04-01\\nUniversal Forces and the Dark Energy \
Problem\\n\\\"keyname\\\" -> \\\"Abbas\\\"\\n\\\"forenames\\\" -> \\\"Afsar\\\
\"\"\>"], "Output",
 CellChangeTimes->{3.711802894745557*^9, 
  3.711802961553187*^9},ExpressionUUID->"7e7e1b92-4645-479b-a8e2-\
1ca86d8d124f"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\"\<Authors\>\"", "\[Rule]", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\"\<Name\>\"", "\[Rule]", "\"\<Marc-Thierry Jaekel\>\""}], ",", 
      RowBox[{"\"\<FirstName\>\"", "\[Rule]", "\"\<Marc-Thierry\>\""}], ",", 
      RowBox[{"\"\<LastName\>\"", "\[Rule]", "\"\<Jaekel\>\""}], ",", 
      RowBox[{
      "\"\<Organization\>\"", "\[Rule]", 
       "\"\<Laboratoire de Physique The'orique de l'Ecole Normale Supe'rieure\
\>\""}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\"\<Name\>\"", "\[Rule]", "\"\<Serge Reynaud\>\""}], ",", 
      RowBox[{"\"\<FirstName\>\"", "\[Rule]", "\"\<Serge\>\""}], ",", 
      RowBox[{"\"\<LastName\>\"", "\[Rule]", "\"\<Reynaud\>\""}], ",", 
      RowBox[{
      "\"\<Organization\>\"", "\[Rule]", 
       "\"\<Laboratoire Kastler Brossel\>\""}]}], "}"}]}], "}"}]}]], "Input",E\
xpressionUUID->"d5a5f5dc-c78f-49eb-9419-a88196d25d73"]
},
WindowSize->{779, 799},
WindowMargins->{{Automatic, 189}, {1, Automatic}},
FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \
2018)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 158, 3, 30, "Input",ExpressionUUID->"4cbcbe82-b30c-45d6-a4b2-6b794528b51a"],
Cell[CellGroupData[{
Cell[741, 27, 842, 23, 73, "Input",ExpressionUUID->"25e9243f-3bb2-4bd3-907d-f26167a135c2"],
Cell[1586, 52, 413, 10, 34, "Output",ExpressionUUID->"d5f6d12a-5ae7-434f-8d36-b35561532eda"]
}, Open  ]],
Cell[2014, 65, 279, 4, 53, "Item",ExpressionUUID->"368d16f8-1393-42ef-80d7-4492b4d40bd1"],
Cell[2296, 71, 238, 6, 30, "Input",ExpressionUUID->"d42020d8-4848-48ce-b9c5-7c57ced5b035"],
Cell[2537, 79, 4611, 109, 451, "Input",ExpressionUUID->"f9ccd2de-d7c4-4123-8806-f057ab46d2ff"],
Cell[7151, 190, 423, 11, 52, "Input",ExpressionUUID->"a113c94e-7ea2-406d-ba16-988952cf1d71"],
Cell[7577, 203, 175, 2, 30, "Input",ExpressionUUID->"88222289-54ca-4b82-bb6d-153d24c00d29"],
Cell[CellGroupData[{
Cell[7777, 209, 165, 3, 30, "Input",ExpressionUUID->"f7ffecd6-b206-45f5-bc9b-cf8755d3a237"],
Cell[7945, 214, 154, 4, 34, "Output",ExpressionUUID->"4049cd5c-f7d4-45bb-b58c-abeb32a82b55"]
}, Open  ]],
Cell[8114, 221, 5159, 115, 556, "Input",ExpressionUUID->"ce105780-980d-4e15-addb-807e1a185108"],
Cell[CellGroupData[{
Cell[13298, 340, 151, 3, 30, "Input",ExpressionUUID->"62da6001-6b0c-4891-968b-cc7229e94c73"],
Cell[13452, 345, 207, 5, 24, "Print",ExpressionUUID->"ee946968-c577-4c82-a7aa-f9947caa65be"],
Cell[13662, 352, 120, 1, 34, "Output",ExpressionUUID->"12032ab7-01af-4df7-ada1-150b4930d731"]
}, Open  ]],
Cell[13797, 356, 11248, 250, 1186, "Input",ExpressionUUID->"d21bb62a-0609-480b-b52a-9a37baa14e54"],
Cell[25048, 608, 1281, 26, 136, "Input",ExpressionUUID->"a3ed05a5-4ee3-40f6-a77d-b11a393547f1"],
Cell[CellGroupData[{
Cell[26354, 638, 151, 3, 30, "Input",ExpressionUUID->"db0477ba-9e62-477b-96fa-e9d1280b0e2b"],
Cell[26508, 643, 306, 6, 44, "Print",ExpressionUUID->"dbcf8d54-7269-49ea-9138-d08601830b50"],
Cell[26817, 651, 212, 5, 34, "Output",ExpressionUUID->"f253db2d-96f8-4fd8-8056-bf5c73d8a719"]
}, Open  ]],
Cell[27044, 659, 222, 6, 30, "Input",ExpressionUUID->"b02a1124-a887-40e1-82f2-9a65ac1d96d6"],
Cell[27269, 667, 224, 6, 30, "Input",ExpressionUUID->"8bf57364-7032-442b-bdd4-b14f22e1c1e2"],
Cell[27496, 675, 235, 7, 30, "Input",ExpressionUUID->"a09a2a3b-b358-47ea-86a9-260fe38c3613"],
Cell[27734, 684, 688, 18, 115, "Input",ExpressionUUID->"743671bd-5727-407e-bfd1-d9c5dc9adb58"],
Cell[28425, 704, 843, 18, 115, "Input",ExpressionUUID->"1f30ee5d-3f8c-4828-8108-e5ab5d31b5a7"],
Cell[29271, 724, 180, 4, 30, "Input",ExpressionUUID->"afda2ab9-332c-403d-b8d2-d44e0eb9b8b4"],
Cell[CellGroupData[{
Cell[29476, 732, 1069, 28, 136, "Input",ExpressionUUID->"9e09de0e-fccd-45d2-99dc-52055b0bf92d"],
Cell[30548, 762, 480, 13, 34, "Output",ExpressionUUID->"f31149f0-4542-4141-800e-fc25ab44d032"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31065, 780, 297, 7, 30, "Input",ExpressionUUID->"20286dc6-fd99-42b5-8c60-e9be0a069df2"],
Cell[31365, 789, 115, 1, 34, "Output",ExpressionUUID->"688576fb-3c1d-48c6-9a76-a6831229766f"]
}, Open  ]],
Cell[31495, 793, 518, 15, 52, "Input",ExpressionUUID->"0cff40eb-5cc8-4dfd-a835-1f800bb219a3"],
Cell[32016, 810, 251, 6, 30, "Input",ExpressionUUID->"6373184a-50fb-4dd4-b459-9557d52ba58f"],
Cell[32270, 818, 98, 0, 30, "Input",ExpressionUUID->"b6c30c14-da92-4302-9bc9-331013f83a7e"],
Cell[32371, 820, 227, 5, 30, "Input",ExpressionUUID->"12e10f24-3fe7-4cc9-9a15-5add3c7b289c"],
Cell[32601, 827, 536, 16, 52, "Input",ExpressionUUID->"31934e52-e997-4812-858e-b060326daca6"],
Cell[CellGroupData[{
Cell[33162, 847, 164, 3, 30, "Input",ExpressionUUID->"9015e30f-510c-4138-9ebe-03204d8089da"],
Cell[33329, 852, 86, 0, 34, "Output",ExpressionUUID->"13ae3dbb-6619-4d65-8b71-bbf6cef1e25b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33452, 857, 399, 11, 30, "Input",ExpressionUUID->"8266af3b-d7ab-48c6-8650-751ae4dada3a"],
Cell[33854, 870, 154, 3, 34, "Output",ExpressionUUID->"48c8e0d1-7678-4d07-b32b-f7778005aae7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34045, 878, 123, 1, 30, "Input",ExpressionUUID->"f3e8deee-31fc-4005-a94b-7712b9ea56e5"],
Cell[34171, 881, 87, 0, 34, "Output",ExpressionUUID->"197f1a68-383b-41e0-8937-d447c18eb5b5"]
}, Open  ]],
Cell[34273, 884, 293, 7, 30, "Input",ExpressionUUID->"19ba55eb-2b24-4ccb-9abe-edcd2b882bdf"],
Cell[34569, 893, 5708, 138, 535, "Input",ExpressionUUID->"d5637a50-1743-4493-803e-915371fb328c"],
Cell[CellGroupData[{
Cell[40302, 1035, 273, 4, 53, "Item",ExpressionUUID->"4f8be73a-c3ca-46a7-a38b-446057de7c07"],
Cell[40578, 1041, 246, 5, 74, "Item",ExpressionUUID->"75f2b9fa-7a93-46bb-970c-00de40eb48b4"],
Cell[40827, 1048, 118, 0, 32, "Item",ExpressionUUID->"b5012e7e-8c87-451c-a41a-0ad4fc221103"]
}, Open  ]],
Cell[40960, 1051, 3017, 74, 325, "Input",ExpressionUUID->"1920f0cb-7b4e-488b-8e6b-2a6036b22cb9"],
Cell[43980, 1127, 662, 14, 94, "Input",ExpressionUUID->"413d60a9-7fab-4228-a8b1-5ace013f5ae8"],
Cell[CellGroupData[{
Cell[44667, 1145, 231, 6, 30, "Input",ExpressionUUID->"05dae943-9805-42e9-adcc-caf54833a7c2"],
Cell[44901, 1153, 9636, 195, 90, "Output",ExpressionUUID->"b6ed617f-cf98-4d7d-8c01-4a695bf1b776"]
}, Open  ]],
Cell[CellGroupData[{
Cell[54574, 1353, 302, 7, 30, "Input",ExpressionUUID->"d27d675b-2df5-4fa0-b67a-5bfcf8f8c933"],
Cell[54879, 1362, 120, 1, 34, "Output",ExpressionUUID->"38ca48c7-0cc3-42b9-83f2-05538db3236e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55036, 1368, 273, 7, 30, "Input",ExpressionUUID->"8c8c77c7-251d-4075-8a43-fc4f1cac9d1a"],
Cell[55312, 1377, 149, 3, 34, "Output",ExpressionUUID->"b9c82553-cd56-435c-bc6c-200f4a6136b8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55498, 1385, 121, 1, 30, "Input",ExpressionUUID->"6d5dc82b-d085-4148-a501-10abb22ccadf"],
Cell[55622, 1388, 227, 5, 34, "Output",ExpressionUUID->"3c514e85-53e8-418c-9839-4689553fa501"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55886, 1398, 307, 8, 30, "Input",ExpressionUUID->"577b3d8f-5283-4e92-9e7a-3fe5906f672d"],
Cell[56196, 1408, 149, 3, 34, "Output",ExpressionUUID->"25ff40f2-3d66-4f03-afb9-d8c4b83ba93e"]
}, Open  ]],
Cell[56360, 1414, 571, 13, 115, "Input",ExpressionUUID->"205848aa-ebe8-4697-b7bc-4ef2ee8621e7"],
Cell[56934, 1429, 842, 20, 73, "Input",ExpressionUUID->"ded1e94a-2205-44a2-9c71-ecf5c71e9fe9"],
Cell[57779, 1451, 613, 18, 73, "Input",ExpressionUUID->"fa339ef5-01d5-4838-ac73-ea34830178d8"],
Cell[58395, 1471, 1010, 24, 178, "Input",ExpressionUUID->"75ce684e-ef04-4a87-be29-8069056b558d"],
Cell[59408, 1497, 220, 2, 52, "Input",ExpressionUUID->"469f7cf3-0943-4184-a0a0-4a46ab0f4dc4"],
Cell[CellGroupData[{
Cell[59653, 1503, 204, 4, 30, "Input",ExpressionUUID->"8d64b426-0b47-410b-a8fa-4274719d6fca"],
Cell[59860, 1509, 2907, 43, 1526, "Output",ExpressionUUID->"7e7e1b92-4645-479b-a8e2-1ca86d8d124f"]
}, Open  ]],
Cell[62782, 1555, 943, 21, 157, "Input",ExpressionUUID->"d5a5f5dc-c78f-49eb-9419-a88196d25d73"]
}
]
*)

